home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / e_to_l / itgraph / vb30 / orgchart / orgchart.bas < prev    next >
Encoding:
BASIC Source File  |  1996-09-15  |  1.3 KB  |  61 lines
  1. Option Explicit
  2.  
  3. Global Const BLACK = &H0&
  4. Global Const WHITE = &HFFFFFF
  5. Global Const LTBLUE = &HFFFF00
  6.  
  7. Sub CenterForm (TGT As Form)
  8.   
  9.   TGT.Left = (Screen.Width - TGT.Width) / 2
  10.   TGT.Top = (Screen.Height - TGT.Height) / 2
  11.   
  12. End Sub
  13.  
  14. Sub DrawChart (TGT As Form)
  15.  
  16.   TGT.ScaleTop = 0
  17.   TGT.ScaleHeight = 100
  18.   TGT.ScaleLeft = 0
  19.   TGT.ScaleWidth = 100
  20.  
  21.   TGT!itgOrgChart.Top = 0
  22.   TGT!itgOrgChart.Height = 100
  23.   TGT!itgOrgChart.Left = 0
  24.   TGT!itgOrgChart.Width = 100
  25.   
  26. End Sub
  27.  
  28. Sub Main ()
  29.   Dim FRM As Form
  30.  
  31.   Set FRM = New frmOrgChart
  32. 'Initialize File menu items.
  33.   FRM!File_Print.Enabled = False
  34.  
  35. 'Initialize Edit menu items.
  36.   FRM!Edit_Delete.Enabled = False
  37.   FRM!Edit_ClearText.Enabled = False
  38.  
  39. 'Initialize Appearance menu items.
  40.   FRM!itgOrgChart.DragItems = False
  41.   FRM!App_Mouse_MoveNodes.Checked = False
  42.   FRM!App_Mouse_Connect.Checked = True
  43.   FRM.Width = 640 * Screen.TwipsPerPixelX
  44.   FRM.Height = 480 * Screen.TwipsPerPixelY
  45.   FRM!App_ScrSize_Standard.Checked = True
  46.   FRM!itgOrgChart.XSpan = 150
  47.   FRM!itgOrgChart.YSpan = 50
  48.   FRM!App_Size_Small.Checked = True
  49.  
  50. 'Initialize Arrange menu items.
  51.   FRM!Arrange_OnNewConn.Checked = True
  52.   FRM!itgOrgChart.AutoArrange = ITG_AutoArrange
  53.   
  54.   Call CenterForm(FRM)
  55.   Call DrawChart(FRM)
  56.   
  57.   FRM.Show
  58.  
  59. End Sub
  60.  
  61.